home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / wb / gurus99 / install < prev    next >
Text File  |  1999-06-15  |  4KB  |  194 lines
  1. ; $VER: Install Gurus99
  2. ; © by Demon 1999
  3.  
  4. (complete 0)
  5.  
  6. (if (= @language "deutsch")
  7.     (run "pr/sync SCRIPT=INST_D")
  8. )
  9. (if (= @language "english")
  10.     (run "pr/sync SCRIPT=INST_E")
  11. )
  12. ;********************
  13. (if (= @language "deutsch")
  14. (
  15.     (set #welcome
  16.     (cat "\n\n\nHerzlich willkommen beim Gurus99 - Installer\n\n"
  17.     "Dieser Installer installiert Gurus99 auf Deinen Amiga\n\n"
  18.     "(Alte Versionen werden gelöscht)\n\n\n"
  19.     "Gurus99  © by Demon 1999"
  20.     ))
  21.     (set #choose-text
  22.     (cat "Wähle das Verzeichnis wohin Gurus99 installiert werden soll. Ein Verzeichnis namens Gurus99 wird dort angelegt."
  23.     ))
  24.     (set #choose-icons
  25.     (cat "Welche Icons sollen installiert werden?"
  26.     ))
  27.     (set #choose-guide
  28.     (cat "Wähle Deinen liebsten Amigaguide-Reader:"
  29.     ))
  30.     (set #choose-html
  31.     (cat "Wähle Deinen liebsten HTML-Reader:"
  32.     ))
  33.     (set #choose-pic
  34.     (cat "Wähle einen Bildanzeiger für .jpg und .iff (.ilbm)."
  35.     ))
  36.     (set #exit
  37.     (cat "\n\nViel Spaß mit Gurus99"
  38.     ))
  39. ))
  40.  
  41. (if (= @language "english")
  42. (
  43.     (set #welcome
  44.     (cat "\n\n\nWelcome to the Gurus99 - Installer\n\n"
  45.     "This Installer will install Gurus99 on your Amiga\n\n"
  46.     "(Old versions will be deleted)\n\n\n"
  47.     "Gurus99  © by Demon 1999"
  48.     ))
  49.     (set #choose-text
  50.     (cat "Choose the destination drawer for the Gurus99 archive. A directory called Gurus99 will be created there."
  51.     ))
  52.     (set #choose-icons
  53.     (cat "Which icons should be installed?"
  54.     ))
  55.     (set #choose-guide
  56.     (cat "Choose your favourite Amigaguide-Reader:"
  57.     ))
  58.     (set #choose-html
  59.     (cat "Choose your favourite HTML-Reader:"
  60.     ))
  61.     (set #choose-pic
  62.     (cat "Choose a pictureviewer for .jpg and .iff (.ilbm)."
  63.     ))
  64.     (set #exit
  65.     (cat "\n\nHave fun with Gurus99"
  66.     ))
  67. ))
  68. ;********************
  69. (message #welcome)
  70.  
  71. (welcome)
  72.  
  73. (set @default "SYS:")
  74. (set @default (askdir
  75.     (prompt #choose-text)
  76.     (help (cat @askdir-help))
  77.     (default @default))
  78. )
  79.  
  80. (delete %s (tackon @default "gurus/data/#?"))
  81. (delete %s (tackon @default "gurus/#?"))
  82. (delete %s (tackon @default "gurus/"))
  83. (delete %s (tackon @default "gurus.info"))
  84. (delete %s (tackon @default "gurus9#?/data/#?"))
  85. (delete %s (tackon @default "gurus9#?/brushes/#?"))
  86. (delete %s (tackon @default "gurus9#?/#?"))
  87. (delete %s (tackon @default "gurus9#?"))
  88. (complete 1)
  89. ;********************
  90. (copyfiles (source ".inf") (dest @default) (newname "Gurus99.info") (optional "nofail") )
  91.  
  92. (makedir @default)
  93.  
  94. (set @default (tackon @default "Gurus99"))
  95.  
  96. (complete 2)
  97. ;********************
  98. (copyfiles
  99.     (source "G99")
  100.     (dest    @default)
  101.     (newname "Gurus99")
  102.     (infos)
  103. )
  104. (complete 11)
  105.  
  106. (copyfiles
  107.     (source "G.htm")
  108.     (dest    @default)
  109.     (newname "Gurus99.html")
  110.     (infos)
  111. )
  112. (complete 12)
  113.  
  114. (copyfiles
  115.     (source "Info")
  116.     (dest    @default)
  117.     (infos)
  118. )
  119. (complete 13)
  120.  
  121. (copyfiles
  122.     (source "GM_vs._Bill_Gates.txt")
  123.     (dest @default)
  124. )
  125. (complete 14)
  126. ;********************
  127. (copyfiles
  128.     (source "dt")
  129.     (dest    (tackon @default "data"))
  130.         (pattern "#?")
  131. )
  132. (complete 95)
  133.  
  134. (copyfiles
  135.     (source "br")
  136.     (dest    (tackon @default "brushes"))
  137.         (pattern "#?")
  138. )
  139. (complete 96)
  140.  
  141. (copyfiles
  142.     (source "ft/")
  143.     (dest    "Fonts:")
  144.         (pattern "#?")
  145. )
  146. (complete 97)
  147. ;********************
  148. (set @ttguide "c:")
  149. (set @ttguide (askfile
  150.     (prompt #choose-guide)
  151.     (help (cat @askfile-help))
  152.     (default @ttguide))
  153. )
  154. (tooltype
  155.     (dest (tackon @default "Gurus99"))
  156.         (setdefaulttool @ttguide)
  157.         (settooltype "(kissdemon@gmx.net)" "")
  158. )
  159. (tooltype
  160.     (dest (tackon @default "Info"))
  161.         (setdefaulttool @ttguide)
  162.         (settooltype "(kissdemon@gmx.net)" "")
  163. )
  164. (complete 98)
  165. ;********************
  166. (set @tthtml "c:")
  167. (set @tthtml (askfile
  168.     (prompt #choose-html)
  169.     (help (cat @askfile-help))
  170.     (default @tthtml))
  171. )
  172. (tooltype
  173.     (dest (tackon @default "Gurus99.html"))
  174.         (setdefaulttool @tthtml)
  175.         (settooltype "(kissdemon@gmx.net)" "")
  176. )
  177. (complete 99)
  178. ;********************
  179. (set @pic "c:")
  180. (set @pic (askfile
  181.     (prompt #choose-pic)
  182.     (help (cat @askfile-help))
  183.     (default @pic))
  184. )
  185. (copyfiles
  186.     (source    @pic)
  187.         (dest    (tackon @default "data/"))
  188.     (newname "V")
  189. )
  190. (complete 100)
  191. ;********************
  192. (run "pr/sync COMMAND=QUIT")
  193. (EXIT #exit (quiet))
  194.